home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 43
/
Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso
/
-serious-
/
graphics
/
fxforge
/
kang
/
scanners
< prev
next >
Wrap
Text File
|
1999-06-15
|
899b
|
33 lines
Category: kang -
Title: Scanners *
Copyright: na
Author: kangaroo@asan.com
Filename: scanners.8bf
R:put(sin(y%Y-val(1,-30,Y))*val(0,30,4),0),put(cnv(get(0),get(0),get(0),get(0),get(0),get(0),get(0),get(0),get(0),get(0)),1),put(dif(get(0),get(1)),2),put(dif(get(2),get(2+I+val(2,-10,2200))),3),put(get(3)-val(3,-320,750),4),put(c2d(get(3),-get(4)),5),put(min(get(3),-get(4)),6),c2d(dif(get(5),get(6)),-i+ctl(4)-val(5,255,0))+mix(-get(2),c,4,255)
G:c2d(dif(get(5),get(6)),-i+ctl(4)-val(6,255,0))+mix(-get(2),c,4,255)
B:c2d(dif(get(5),get(6)),-i+ctl(4)-val(7,255,0))+mix(-get(2),c,4,255)
A:a
ctl[0]: screen contour
ctl[1]: vertical scroll
ctl[2]: split beam
ctl[3]: width-intensity
ctl[4]: remove light
ctl[5]: remove red
ctl[6]: remove green
ctl[7]: remove blue
val[0]: 180
val[1]: 78
val[2]: 62
val[3]: 200
val[4]: 200
val[5]: 255
val[6]: 255
val[7]: 255